COMMENT.  SAMPLE DECK TO RUN GRAPE
ATTACH,OLDPL,PLGRAPECASOBANGMODH,ID=SORENSON.
UPDATE.
RFL,160000.
FTN,I,R=3,B=NEW,OPT=2.
REDUCE.
RETURN,COMPILE.
REWIND,OLDPL.
UPDATE,F.
RETURN,OLDPL.
RFL,160000.
FTN,I,L=0,B=OLD,OPT=2.
REDUCE.
RETURN,COMPILE.
REWIND,NEW.
REWIND,OLD.
COPYL,OLD,NEW,LGO.
RETURN,NEW,OLD.
LOAD,LGO.
NOGO.
GRAPE.
